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PARTE Ill — COMO FUNCIONA O Z80 


4.3. — As mnemónicas do Z80 (Continuação) 


Mnemónicas Códigos 
LD A, (HL) 126 
LD A, (BC) 10 
LD A, (DE) 26 
LD H, (HL) 102 
LD L, (HL) 110 
LD B, (HL) 70 

“LD €, 41) 78 
LD D, (1) 86 
LD-E, (HL) 94 


- 


Estas instruções não efectam as flags e têm um tempo de 
execução de: 


N.º de Bytes N.º de ciclos M | N.º de ciclos T 


Ensaio: 










Vamos supor que as localizações RAM (27000 e 27001) 
contêm os 2 bytes que formam um dos 3 possíveis endere- 
ços, aonde se encontra um código chave que permite uma 
dada sequência de programação. 


Assim, num determinado ponto da rotina, encontraremos o 
sm fegisto HL a apontar a localização 27000, o registo BC a 
copiar o endereço mistério e o registro A a copiar o conteúdo 
BC no qual estará ou memorizado o tal código. 


PROGRAMA 4 A — Depois de situar a RAMTOP na localiza- 
ção 26999, vamos simular as condições referidas. 


a) Introduzir um 27000 e 27001 o endereço X. Por exemplo 
X = 30000 


LET X = 30000 

LET Y = INT (X/256) 

LET Z = INTX— Y + 256) 
POKE 27000, Z 

POKE 27001, Y 


Db) Colocação do código chave no endereço X. por exemplo 
o número 129. 


POKE X, 129 


c) Introdução dos códigos para a rotina máquina com início 
em 27002. 


(Cont. dos números anteriores) 


Códigos Mnemónicas Observações 
33,120105 LD HL, 27000 registro apontador 
78  LDC, (HL) carga de C. com o LOW BYTE 
35 * INC HL soma 1 ao apontador 


70 LD B, (HL) 
10 LD A, (BC) 


carga de B, com o HIGH BYTE 
carga de A, com conteúdo de BC 


6,0 LD B, O Devolve ao Basic o resultado 
79 LD CG, A do teste 
201 RET 


LET K = USR 27002 
PRINT “O ENDEREÇO X, CONTÉM O CÓDIGO”. K 


NOTA: A instrução INC HL pertence a um grupo que ainda não foi abordado 
neste texto. Ela vai incrementar o valor apontado pelo registro HL 
(27000 + 1). 


Terceiro subgrupo — Instruções que utilizam o endereço 
indexado. 

Permitem estas instruções a carga dum registro simples 
com a cópia de um byte de dados que se encontre memori- 
zado num bloco ou tabela, cujo endereço base seja aponta- 
do por um dos registros IX ou |Y. 

Estes agrupamentos (bloco ou tabela) não ultrapassam 
normalmente um máximo de 256 códigos, para estarem co- 
bertos pelo campo de manobra dos registros indexadores. 


Mnemónicas Códigos 

LD A, (IX + d) 221, 115 + d 
LD H, (IX + d) 221, 102 + d 
LD L, (IX + d) 221, 110 + d 
LD B, (IX + d) 221, 70 +d 
LD C, (IX + d) 221, 78+d 
LD D, (IX + d) 221, 86 +d 
LD E, (IX + d) 221, 94+d 
LD A, (IY + d) 253, 115 + d 
LD H, (IY + d) 253, 102 + d 
LO Li (IV + d) 253, 110 + d 
LO B, (IY + 0) 258, 70 +d 
LD C, (IY + d) 259, 78+d 
LD D, (IY + d) 253, 86 + d 
LD E, (IY + d) 253, 94 +d 


Tempo de execução 


Estas instruções não afectam os flags como se pode verificar 
na tabela acima, as instruções de endereço indexado, são - 
morosas na sua execução, pelo que não são muito utilizadas 
em rotinas rápidas. 






Exemplifiquemos a acção indexante de um destes registros. 


Bloco ou tabela 


(IX + 129) 


1.º endereço 


Ed » 





Localização base 
apontada = 8 


pelo seg. IX 


A soma do endereço base com (+ d), um número em 2.º 
complemento aritmético, coloca o registro IX. 

Sobre um dos 256 possíveis endereços. Uma vez copiado o 
conteúdo desse endreço, o registro indexante retorna à sua 
posição anterior (o endereço base). 


No programa monitor do ZX81, o registro IY é apontado para 
o início do sistema de variáveis (16384) e o registro IX é usa- 
do nas rotinas de imagem para memorizar o endereço de 
retorno pelo que não é vantajoso só utilizá-lo senão em pro- 
gramas que contenham as suas próprias rotinas de imagem. 
Na rotina de limpeza do écran, a variável DF-SZ (16418) é 
chamado para determinar o número de linhas permissíveis 
na parte inferior deste. 

Comentários 


Endereço Códigos Mnemónicas 


Carrega B com conteúdo 


ad de DF — SN (16418) 


253,70,34 LDB, (IY + 34) 


No programa monitor do Spectrum, o registro IY é usado pa- 
ra apontar o endereço 23610, sistema de variáveis (ERR — 
NR) e o registro IX é utilizado em várias rotinas, tais como 
SAVE, LOAD, MERGE, VERIFY, etc. O registro IY deve re- 
tornar Sempre ao monitor com o endereço original. 

5.º GRUPO — Instrução para carregar cópia de conteúdo 
dum registro, em determinada localização da RAM. 

As instruções deste grupo possibilitam operações que são in- 
versas às descritas no grupo anterior. 

Também aqui, vamos organizar 3 subgrupos para as 
descrever. 

Subgrupo 1 — Instruções que utilizam o endereço absoluto. 


Mnemónicas Códigos Tempos 
LD (NN), A 50, NN a 
LD (NN), HL 34, NN b 
LD (NN), BC 237, 67, NN c 
LD (NN), DE 237, 83, NN já 
LD (NN), IX 221, 34, NN dá 
LD (NN), IY 253, 34, NN ” 
LD (NN), SP 237, 115, NN ” 





CLUBE Zso 


Estas instruções não afectam os flags e têm um tempo de 
execução de: 


a 3 4 13 
D 3 5 16 
Cc 4 6 20 


Com as instruções deste subgrupo podemos colocar uma có- 
pia do conteúdo de qualquer um dos registros referen- 
ciados, na localizações NN da RAM. Com o registro A ape- 
nas é possível a transferência de 1 byte. Os restantes trans- 
ferem sempre 2 bytes que são alojados no endereço apon- 
tado e seguinte. 






Ensaio: 


Vamos introduzir 2 bytes de dados (2 numeros entre O e 255, 
ao acaso), 95 e 234, nos endereços 27000 e 27001. 

No ensaio 1, usamos o registro A para transferir para a locali- 
zação 28000 o byte copiado em 27000. 

No ensaio 2, usamos o registro HL para transferir para 28000 
e seguinte, os 2 bytes copiados nos endereços 27000 
e 27001. 


a) RAM TOP em 26999 


b) REM 27000 — endereço de saída 
REM 28000 — endereço de chegada 
LET X = 27000 
POKE X, 95 
POKE X + 1, 234 


c) Assembler 


Ensaio 1: 

Códigos 
LD A, (27000) 58, 120, 105 
LD (28000), A 50, 96, 109 
RET 201 
Ensaio 2: 
LD HL, (27000) 42, 120, 105 
LD (28000), HL 34, 96, 109 
RET 201 


d) RANDOMIZE USR 27002 
PRINT PEEK 28000 
PRINT PEEK 28001 


Subgrupo 2 — Instruções que utilizam o endereço indirecto. 
Estas instruções permitem que uma cópia do conteúdo do 
registro A seja memorizada no endereço apontado pelos re- 
gistros HL, BC, DE, e que uma cópia do conteúdo de qual- 
quer registro simples ou ainda dum byte (N), seja memoriza- 
da no endereço apontado pelo registro HL. 


Este subgrupo engloba também 3 instruções que permitem a 
troca de conteúdos entre o registro SP (apontador da vilha) e 
os registros HL, IX ou IY. 


>, 








CLUBE Zso 3 
Mnemónicas Códigos Tempos Mnemónicas Códigos Tempos 
LD (HL), A 119 a LD (IX + d), A 221, 119,+d 
LD (BC), A 2 . LD (IX + d), H 221, 116, +d 
LD (DE), A 18 LD (IX+ d), L 224, Y17,+d 
LD (HL), 116 LD (IX + d), B 221, 112,+d a 
LD (HL), L EF LD (IX + d), € 221, 113,46 
LD (HL), B 112 LD (IX + d), D 221, 114, +d 
LD (HL), C 113 LD (IX + d), E 221, 115, +d 
LD (HL), D 114 LD (IX + d), + N 221,54, + d, + N b 
LD (HL), E 115 LD (ly + d), A 253, 119, +d 

LD (ly + d), H 253, 116, +d 
EX (SP), HL 221 C LD (ly + d), L 253, 119, +d 
EX (SP), IX 221, 227 à LD (ly + d), B 253, 117,+d a 
EX (SP), IY 293, 227 a LD (ly + d), C 253, 112,+d 

LD (ly + d), D 253, 1183, +d 
Estas instruções não efectam os flags e têm um tempo de exe- LD (ly + d), E 253, 114,+d 
cução de: LD (ly + d), + N 253, 54, + d, +N b 


Tempos | N.º de Bytes 


1 2 rá 
2 3 10 
1 5 19 
2 6 23 


Das 3 últimas instruções deste subgrupo a mais utilizada é 
sem dúvida a EX (SP), HL da qual vamos apresentar um 
exemplo, extraído dos monitores. 

Ao seleccionarmos a localização para a RAMTOP, que delimi- 
ta o espaço de actuação do Interpretador Basic, é introduzido 
pelo monitor nesse endereço um código (número 62) que vai 
servir de batente à pilha GOSUB. 

Esta área de trabalho, imediata à RAMTOP, é usada pelo in- 
terpretador para guardar o número de linha (representado por 
2 bytes e formando um número entre O a 9999) que determina 
o ponto exacto de retorno, após a execução dum comando 
GOSUB e da respectiva subrotina. 

Quando um comando RETURN é executado, 2 bytes são re- 
colhidos da pilha e testados pelo interpretador sem condição 
sede erro GOSUB. 

csse teste é efectuado pela instrução EX (SP), HL que coloca 
no registro HL os bytes retidos por SP. 





Mnemónicas Comentários 
ES (SP), HL 2 bytes da pilha vão para HL 
LD A, H o alto byte para A 


Depois, compara-se o conteúdo de A com o código 62. Se A 
= 62 o programa é interrompido com um relatório (ERRO 7 
— RETURN usado sem anterior GOSUB). 

Se A < 62 a sequência continua. 

Subgrupo 3 — Instruções de endereço indexado. 

Estas instruções permitem a introdução do conteúdo de qual- 
quer registro simples ou de byte (+N) na localização indexa- 
da pelo registro IX ou IY. Através delas, (não sendo o proces- 
so mais utilizado) pode-se alterar a qualquer momento du- 
rante um programa, um ou mais conteúdos dum bloco ou ta- 
bela de dados, modicando funções ou resultados parciais em 
certos cálculos matemáticos, listagem de recordes numa sé- 
re jogada, caracteres gráficos para animação, etc. 


Estas instruções não afectam os flags e têm um tempo de 
execução de: 


N.º de bytes| N.º de ciclos M 


3 o 19 
4 o 19 


GRUPO — 6 Instruções de adição 

O Z80 efectua operações aritméticas simples (adição e sub- 
tração) com 8 ou 16 bits, em binário artimético absoluto. 
Apenas os registros A, HL e os indexantes IX e IY, têm a 
capacidade de resolver as operações mencionadas, o que 
causa por vezes dificulades, aos principiantes. No entanto é 
sempre possível improvisar uma solução, atendendo ao nú- 
mero substancial de instruções que o Z80 possui para o 
efeito. 










Vamos dividir o Assembler deste grupo, em 3 conjuntos 
distintos. 


1) Instruções de adição (ADD) 
2) Instruções de adição com cany (ADC) 
3) Instruções de incrementação (INC) 


Subgrupo 1 — Instruções (ADD) 


Mnemónicas Códigos Tempos 
ADD A, + N 198, + N b 
ADD A, A 135 
ADD A, H 132 
ADD A, L 138 
ADD A, B 128 E 
ADD A, € 129 
ADD A, D 130 
ADD A, E 131 
ADD A, (HL) 134 c 
ADD A, (IX + d) 221, 134, + d ! 

ADD A, (IY + d) 253, 134, + d d 


4 

ADD HL, HL 41 

ADD HL, BC 9 

ADD HL, DE 25 à 
ADD HL, SP 57 

ADD IX, IX 221, 41 

ADD IX, BC got, 9 

ADD IX, DE 221, 25 

ADD IX, SP 221, 57 

ADD IY, IY 258, 41 f 
ADD IY, BC 2583, 9 

ADD IYy, DE 253, 25 

ADD IY, SP 253, 57 

Subgrupo 2 — Instruções de adição c/cany (ADC) 
Mnemónicas Tempos 
ADC A, + N b 
ADC A, À 

ADC A, H 

ADC A, L a 
ADC A, B 

ADC A, C | 

ADC A, D 
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ADG A, E | 

ADC A, (HL) . Es 
ADC A, (IX + d) 

ADC A, (IY + d) ) 
ADC HL, HL 

ADC HL, BE | 
ADC HL, DE 
ADC HL, SP 


As instruções destes 2 subgrupos têm um tempo de execu-. 
ção de: 





Todas elas afectam os flags. No entanto para o programador 
apenas interessa o estado do carry flag. 


(Continua no próximo número) 


QUAL O ERRO DESTE PROGRAMA? 


JOSÉ M. S. GORDA/MONCORVO 


Coloca a seguinte pergunta: 


Informem o erro que contém o programa em anexo. Não 
consigo que o computador obedeça à instrução contida na 
linha 80 pois apesar de introduzir a letra “0” o programa não 
termina, e após aceitar os 10 dados, coloca-me esse carater 
no início da listagem. 

Cheguei a substituir esta linha por: 


80 IF INKEY$= “0" THEN STOP 
OU 

80 IF A$(C)=“0" THEN STOP 
que também não funcionam! 


RESPOSTA DO CLUBE Z80 


O programa reage com precisão se usar: 


80 IF A$((C),1)=“0" THEN STOP 
OU 
80 IF A$((C),1="'0" THEN GOTO 200 


A explicação do erro de programa, está ligada à forma como 
as máquinas SINCLAIR fazem o armazenamento das variá- 
veis alfanuméricas ou strings. Quando é feita a declaração de 
dimensionamento, para um variável (10) e o número de ca- 
racteres que é assumido por cada variável (5). O teste efec- 
tuado na linha 80 .... IF A&(c)="“0" then .- etc, vai 
comparar cada caracter da string A$(c) com o valor “0”. 

Como na memória da máquina, está guardado um conjunto 
de 5 bytes, corespondentes ao valor assumido pela variável 
sai AB(c)=“0" (caracter O + 4 espaços), o teste de 


10 REM ORDENACAO ALFABETICA DE 
LETRAS 

20 DIM A$(10,5) 

SQ FOR G=1 TÓ 10 

62 INPUT ;R$(G) 

80 IF Ag(G)="0"' THEN GO TO 200 

20 PRINT ASIG) 

100 NEXT G 

200 CLS | 
212 PRINT “UM MOMNTO POR FAVOR" 
220 FOR B=1 TO 6-1 

230 FOR C=B+1 TO G- 
2242 IF AS(B) <=AGiC) THEN GO TO 
Eu LET D$=AS (B) 

260 LET AGIiB) aAMIC) 

270 LET AS (C) =D5 

280 NEXT 

S8 DE 

NT “TERMINADO 

310 PR NE 165 

400 FOR Azi TO G-1 

410 LPRINT ASG(A) 

420 NEXT A 


comparação falha porque estamos a pedir que verifique a 
igualdade entre: 


1 — Byte 2-— Byte 3-— Byte 4 — Byte 5 — Byte 
AB(C) ...... 48 32 32 32 32 


Observe que na memória da máquina estão os códigos déci- 
mais correspondentes às variáveis que queremos comparar; 
por isso o programa não funcionava como queria! 

Ao transferir o teste para o primeiro byte da variável ..... 
aP(C,1) estará perante a situação real e tudo corre perfei- 
tamente. 
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O QUE HA DE NOVO EM HARDWARE PARA O SPECTRUM (em Portugal) 


TECLADOS D'KTRONICS ... compatível com o Interface 1 e 
com o uso dos Microdrives 
Preço oficial esc.: 15 000$00 


SINTETIZADOR DE VOZ 


Preço oficial esc.: 8 500$00 


LIGHT PEN 
Preço oficial esc.: 6 500$00 


O QUE É O LIGHT PEN e para que serve 


O Light Pen é um dispositivo que serve para detectar a luz 
emitida pelo écran do televisor, enviando um sinal para o 
spectrum. Quando usada com software apropriado, pode ser 
usada para levar items para o menu, ou fazer desenhos no 
ecran. Trabalha da seguinte maneira: a partir da TV, o dis- 
play é feito por um ponto voador de luz reflectida ao longo do 


a, ecran a alta velocidade. A posição da Light Pen é determina- 


1) 


o UA A foi dd 


2uus 


da no momento em que o ponto luminoso passa em frente da 
Pen. Os programas providos com Light Pen, usam esta infor- 
mação para calcular X (horizontal) e Y (vertical), coordena- 
das que correspondem ao ponto onde a Pen se encontra po- 
sicionada. Alternativamente é possível calcular o número de 






Autor: CARLOS MORENO 
PORTO 


“Envio um conjunto de 3 programas que permitem executar 
algumas rotinas em código máquina. Para que qualquer um 
dos seguintes programas possa ser executado é preciso es- 
tabelecer um novo valor para a RAMTOP, o que pode ser 
obtido com CLEAR 60000. 


Tendo sido eu um possuidor de um ZX81, notei a falta de 
uma instrução SCROLL no Spectrum. Para remediar 
esta lacuna, podemos utilizar o programa que se segue: 


1d 


LET 3$E='BARBS2DBI)DASDSS A: 


FOR n=2 TO & 
ar ORE D+EdBCa, UoL aginxa TO 


“NEXT n 


RR RETA 


“od Cad eo) sd 
e RE 


Depois de ter sido introduzido e executado podemos 
fazer RANDOMIZE USR 60001 sempre que quisermos fazer 
SCROLL. 


x 
* x 


Sempre que desejamos limpar o écran, as únicas instru- 
ções disponíveis são PRINT e cls. O programa que se 
segue permite limpar um número variável de linhas a 
partir da zona inferior do écran. 


NOTA: Se for introduzido na variável um valor correspondente ao n.º de linhas 
menor que 1 ou maior que 22, a consequência será um crash”. 


| 


QU AN it 


4 q 


am” - 


” 


S*a LET 8$="BAB0OSDIRIRSOSBRIIDE 
qd. FOR n=i TÊOE 
5758 POKE n+62900, VAL agins3 TO 
+35 +23] 
978 NEXT n 
d?* PORE GBaC2, Linhas 
a7àa RANDOMIZE LUAR aABerga 
Sa RETLIRN 
x 
+ x 
3) Sempre que queremos imprimir letras e símbolos no 
écran durante a execução de um programa em código 
máquina, temos de perder tempo a introduzir longas filas 
de mnemónicas do tipo: LD A, N; RST 16; etc... 
Para impedir esse incómodo podemos utilizar o seguinte 
programa: 
ES LET encd=e4G8E 
20 LET Flag= 
E? DIM b$igss) 
Sa FOR p=i TO 5 
Jo CLS 
tQ INPUT “numero do papel “:ps 
ET = pap>7 THEN POKE end+i,2BlI: 
Ra À 
2 INPUT “numero da tinta “;tiã 
Db LET a$='ABBE2AR).C2I2cesz00021 


linha a usar, quando é requerida a selecção para o menu. 
Não é necessário conhecimentos de BASIC ou CÓDIGO MÁ- 
QUINA para usar a Pen e reproduzir desenhos elegantes; no 
entanto, os conhecimentos de BASIC podem ajudá-lo, quan- 
do quiser trabalhar com a Light Pen nos seus programas. As 
séries de rotina de código máquina estão providas para de- 
senhar círculos, linhas, caixas, arcos e desenhos livres, com 
as 8 cores do Spectrum. 


Como ligar a LIGHT PEN ao SPECTRUM: 


A Light Pen consiste numa unidade de controlo (interface) e a 
Light Pen propriamente dita a qual é ligada ao gravador no 
topo do interface. Para ligar ao spectrum: 


1 — ligue a Light Pen ao interface 

2 — verifique se o Spectrum está desligado e ligue a expan- 
são ao spectrum; não é necessário desligar a Printer ou 
o Interface 1. 

3 — ligue o spectrum e reproduza o programa pelo processo 
normal de LOAD” ”. 


O software encontra-se dividido em 2 partes: Basic e Código 
Máquina. 


926020801721520202000215% 
70 TO Il2 


FOR n=i 
ct PORE n+end,VAaAL aginxa TO ns 


S+2) 


90 NExT pn 
102 POKE end+S, tin: 


1180 LET end=end+12 
1204 FOR L=1 TO 22 

138 INPUT b3 

148 FOR s=1 TO 32 

15Q PDKE end+1,62 

1690 POKE end+3, CODE bgts) 
170 PDKE end+53,215 

180 LET end=end+3 

1980 NEXT s 

195 PRINT AT L-1,8;bg 

208 NEXT 4 | 

210 POKE end+1,2025 

3220 POKE end+a, 142 

BBa POKE end+8,2.. aii 
240 POKE end+4,67 
254 POKE end+5,d 

260 POKE end+5,4B 

S7B PDKE end+7,249 

284 POKE end+8,2085 

290 PDKE end+9, 187 






in.: PERSONAL COMPUTER, DEZ. 1983 


Normalmente, perde-se muito tempo para desenhar uma fi- 
gura no écran. 

Aqui vai um pequeno programa que lhe permite armazenar a 
figura numa parte diferente da memória e chamá-la de 
imediato. 

Primeiro desenhe o “SCREEN” que pretende gravar, depois 
use este programa para o armazenar noutra posição da 
memória. 


10 FOR = 32738 TO 32749 

20 READ A 

30 POKE F,A 

40 NEX F 

50 DATA 17,0,220,33,0,64,1,0,27,237,176,201 
60 REM colocar a rotina do desenho aqui 
90 RANDOMISE USR 32738 


POKE end+1I 


CLUBE Zs0 


380 POKE end+rlô, IS 

318 LET end=end+1A 

ago NEXT P 

Ko FPOKE end+1,202 

Podemos definir a côr do papel e da tinta. Depois de in- 
troduzirmos todos os símbolos que necessitarmos, deve- 
mos acabar o écran com espaços: para parar devemos 
introduzir um valor alto para o papel. 

Depois de o programa estar parado, podemos executar o 
código máquina com RANDOMIZE USR 60001; Quando 
quisermos mudar de écran, devemos premir duas letras 
as mesmo tempo. 

Se utilizarem o código máquina introduzido, num progra- 
ma em código máquina não se esqueçam que, devido à 
ultima mnemónica ser uma RET, o programa em C.M. 
para a sua execução após a apresentação de todos os 
écrans.” 


Para chamar a figura, use o mesmo programa alterando a 
linha 50 para: 


50 DATA 17,0,64,33,0,220,1,0,27,237,176,201 


Para gravar a figura: 


SAVE “nome” CODE 56320,6912 


Para passá-la do gravador, use LOAD em vez de SAVE. 
Aplicando isto a outro programa, use o programa original e 
faça POKE 32740,64: 


POKE 32743,220 para chamar o “SCREEN”. 
Quando quiser fazer reaparecer a figura, faça RANDOMISE 
usr 32738. 





MANUEL QUINA/PORTO 


Você encontra-se num labirinto e precisa sair de lá antes do 
contador do tempo chegar a zero. Para se movimentar use 
as teclas 5, 7 e 8. 

No écran aparecerão, além dos corredores, o indicador de 
tempo à direita, as cordenadas de saída em cima e finalmente 
em baixo as suas coordenas e o indicador de direcção: 


| — cima 

V — baixo 

< — esquerda 
> — direita 


O labirinto visto de cima é um quadrado de 10x10. 
O jogo acaba quando você termina o tempo ou quando voçê 
poderá ver o mapa do labirinto. 


MODO DE INTRODUÇÃO DO PROGRAMA 
Dar entrada do seguinte programa: 


1 REM aaaaaaaaaaaaaaaaaaaa (2 2 caracteres) 


2 LET a=5+PEEK 23635+255 *PEEK, 23635: POR i-=a TO 
a+21: READ n: POKE in: NEXT i 

3 DATA 6,192,17,10,0,33,0,64,197,6,22,54,0,35,16,251,237, 
90,193,16,243,201 

Em seguida apagar as linhas 2 e 3, dando entrada do progra- 

ma em BASIC. 
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Este programa permite-lhe introduzir até 3 grupos de dados, 
cada um com um máximo de 12 itens, e representa esses 
dados através de gráficos de barras, de linhas ou “pie” 
(“bola de queijo”). 

Prima ENTER de cada vez que dê entrada de um item. A 
tecla DELETE opera em todos os “inputs” e CAPS LOCK na 
opção de Formato Geral. 

A listagem contém algumas pequenas rotinas em código má- 
quina nas linhas 8000 até 8195. A primeira traça as barras do 
gráfico de barras. A segunda traça as linhas e é uma cópia 
da rotina ROM. A última rotina desloca os números no eixo 
dos X, 4 “pixels” à direita, de modo a ficarem alinhados com 
o gráfico. O restante código produz os sinais de Janeiro a 
Dezembro. 

A opção de Formato Geral permite que os dados sejam 
marcados por meses e pergunta pelo n.º do mês em que 
inicia (p.ex., “1” significa Janeiro a Dezembro). 

Quando o programa está a correr, para evitar a espera en- 
quanto código máquina está a ser “POKED”, altere a linha 
10 para LOAD “CODE”, apague as linhas 8000 a 8195 e 
depois grave o programa com: 


SAVE “SP EASEL” LINE 10: 
SAVE “EASEL MC” CODE 60000, 460. 


NOTA: Os traços no fim da linha 50 são gráficos u.d.g. e produzem-se substi- 
tuindo os gráficos ABC. 


Lo POKE 23609 20: BORDER 1: PAR 
PER 1: INK ?: LÓRAD “ERSEL-MCCOD 

20 LET n=D: LET monthad 

30 LET ts= Titutol. LET mo 


5 
LET x6="x eixo": LET y8="y eixo 


42 POKE 23658,090: FOR F=USR “a” 
TO USR “C++: POKE EO: NEXT FF 
So POKE USAR 'a'+á, 255: PORE US 
ao 4 pd jawa: | POKE USR 'C'+á,2il: 
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SS IF INKEyg='2' TMEN GO TO 20 
IF INKEvy82"3' THEN GO TO 90 
INKEy ga'4"' THEN GO TO 40 
IF INKEvyg='5' THEN GO TO 50 
INKEY 8='58'"' THEN GO TO 60 
GO TO SdQ 
REM RRIRRRERRAR 
REM entrada inici 
REM teREPRRRRELAA 
CLS : IF nsg THEN 
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PRINT AT RUA Di Rs 
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OS. Quer continuar? isz/n) " 
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3219 POKE 293658,0: PAUSE DO: IF 1 

NKEYy 6="n" THEN LET month=0: LET 

dd AE EE PRINT AT 18,16; "Nao "; 

nT 20,16, 0 “: RETURN 

Sao IF INKEY$<>'s” THEN GO TO 3 

3230 PRINT AT 18,16; “sim” 

3240 LET cgã=" Entr. numero in 
iC.mes “: LET col=18: GO SUB 985 

O: LET monthaVAL dg: IF monthc<l 

OR month>12 THEN GO SUB 9990. GO 
TO 3240 

3250 LET ng=mE(Z, imonth-1) 42+1 T 

O )+mgiZ2, TO imonth-1) 42) 

3260 RETURN 

3300 PRINT BL;AT D.,D,Z6, 268 

3310 PRINT PAPER G;AT f,0;Z$1i TÚ 
e LET dg="" 

3320 PRINT AT F,LEN a PAPER 2, 
“FLASH +» ONA (78- (9 AND PEEK 23 

65828) ): PAUSE QD: LET iM=INKEYS: 
LET izCODE if 

3330 IF iz6 THEN POKE 293658,hABS 
(PEEK 23658-8): GO TO 33280 

3340 IF i=13 TMEN GO TO 3400 
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T k=k+1: GO TO 9140 

9150 IF k>s THEN LET s8=k:; LET 585 

s 

Sigo IF SGN dtf,9)=-1 THEN LET m 

E. 

9170 NEXT f: FOR f=1 TO eig): LE 

T bzABS dt(f,9) 21015 

2180 IF b>5 THEN LET 5Sz=12 

9190 NEXT Ff: NEXT à: LET sc=i2em 

*558/10+438: RETURN 

V2adO REM EFLFKEANILERLERRRKRERE 

201 REM poke dados 9r-/B 

o202 REM EFFRLLERRLFAFERERERKRKK 

bed POKE 59974, f+2: POKE 59975, 
+ 

Sa5o FOR à=z1 TO la: POKE asa+ rt 

Pá ,dta, ff) esc: POKE a+2+59975,dt( 

tigre NEXT a 

300 REM trFELLCRLHLRREFELKRHRERAE 

v3201 REM desenhar arafico 

302 REM trkkkzRikakaRARRERRRARAR 

93194 CLS : PRINT TAB 16-LEN t8/2 

It AT 1, 16-LEN s8/2;,598 

9320 PLOT 55,535: OCRAWU 2,128: IF 

mz1 THEN PLOT 52,36: LET py=0: P 

DKE 60001,38: POKE 60002,83 

3330 IF n=z=.5 THEN PLOT 528,97: PO 

KE 60001,38: PURE BOUBR, 7Ê 

29340 DRAW 195,8: LET xz36: FOR y 

=E TO 114 STEÉ iz: PLOT Sá,xéuy: 

DRAW 1,8 

3350 IÉ n=.5 AND y=54 THEN LET x 

=X + 

2360 PLOT Sê a DRAW 3,0: NE 

XT PLOT Sa" 3 AU 

9370 LET azigts: à gu2 THEN LET 
a=1: PRINT AT 20,0; INK 4;"x'";1 

ts: LET Ss 

23809 INK 4: FOR gye2 TO LO STEP 2 
LET xza+s+i10- ia siga “1))/285: P 

RINT AT a+1.5+ +94 ,6 -L.EN STR Rs? 

NEXT y 

23990 IF month<>2 THEN POKE 23606 

116: POKE 23697,232: PRINT AT à 

MR] À TO dil+2): POKE 23606,8: 

PORE 23607,60 

9400 IF month=2 THEN PRINT AT 18 

gLAD TO dl+x2): RANDOMIZE USR 6 

2410 PRINT AT 192,19-LEN xh/2;xX8 

9420 FOR uU=1 TO LEN gg: PRINT AT 

nino yus/2+4,4-S-L/M; UEiV): NEX 
ty 

3430 INK 7: PRINT AT, à cidado PAPER 
1: Zoe A 21,0; "REY 

442 RETURN 

9500 REM srrIPRrILRLERLERRLEAERE 

9541 REM tecla 

asdo REM SrRrISLIRRLLLLERELLRRRE 

510 LET ixzf+ra 

9520 PRINT PAPER à, INK i;'"B''; I 

NH. 2:20"; 484f) 5 

v530 RETURN 

VEDA REM FrRRFIFLRERELLRERERKREAE 

601 REM draw Line 


Autor: CARLOS MORENO 


PORTO 


Le PRINT AT E,B; "Toque uma mei 


28 DIM a (199) 

34 FOR n=i TG 184 
48 LET a tn: =CODE INKEY$-S 
So BEER .1,a tn) 

Sa NEXT 

56 PRINT AT 0,8; 


8a FOR n=1i TO IBé 
aa BEEP .l,ainm) 


leu NEXT 


E 
128 PRINT AT 0,0; quer 


Dutra vVEzr 


130 JF INKEv =" 





estute que 


THEN Go TO 78 


CLUBE Zso 


mM 

a 
+ x 
=  w 
Tx 


AD ae O ate Z6O nan 
Õ- Nx 


drTms DCUT O x 
4 | 


CA GIO Qha) x 
Maua O RO x 


Po dt POZA-+ x 


2 «Mx 


vo 


“a 


=p Sra * 


m 
ua 
ed 
Mm 
bad 
al 
E 


cZO 
ek zm Doo nm 


RAEM 


o eo qo vos ls vis ls tt — o E O O 
Iels UTHPAOROSX 


Precos DNA- 
Cux0% OMOA-- Atol» 


++ 
da 
RELER EA 
col=9+48+7 
n : LET max 
T nincás: LET excepsás. L 
b$(3): GO TO 92880 
ET Line=f+6: LET col=9+8+f 
T tLene?: LET end=256: LET ma 
LET mine4á4S: LET excep=0: L 
bEt6)i: GO TO 9880 
ET tLens?: LET tinge=S:; LET 
to LET end=z=255B: LET maxs= 
LET excepaB: L E 
9880 


LET colalS: LE 
LET max =Co 


Pp AZXZAHZMA DOXE 
dade O she 


Mm — e My ape 

Aa x«x0)I0% xZ=0mM 
Maes RO T+ 
As — x 

O bx DO +: 


Er, 
"Fur TCODDDTHO-TUTO 


Sa PROVA NIN+A- DA 
Ed 
Memo LA: OF OM 


"enJMON-- Mmevrosos - &-- Sh 


o momnu 
eendo—-twy MR JPrrOGOEAPO- FNGOHO 
o so 
Rs iona 
Ds 


ou OADAr nm UMa 
C=13 


= ; 

inez20: LET lLen=n: LET 
LET max=57: LET min=48 
p=D: LET cázbgid): GO 


LET cols=2ê: LE 
LET max =C0 


-rIa- 
Um Sama & a 
D4RIMS0 AMAR mamo 


"Mm m4>o íqau 


5 
à pin E ES qees” PAPE 
eos. PRINT 8L;AT 0,0; 

LET iS=INKEYS: LET 


f<>"" THEN PRI 
1 dg, PAPER 6,- 
LEN dg-1): GO 


1i=13 AND d$<> THEN GO 


LEN d$=Len THEN GO SUB 9 
TO 9599 

izend OR izend+32 AND dé 
N GO TO 9980 

i<min OR ibmax OR izexce 
O SUB 9990: GO TO 9890 

dk=ds+i%4 
NT AT Line 


pa 


DoDODO :Or-DDO OM DOC HAGOM 
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ERXEFRELRARALEAA ERRA A 
PAPER 2; 
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O 0-4 Do O 
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COSMAZOIGS 


NESTE JOGO, PUBLICADO EM JULHO (N.º 22), 


PÁG. 15. NÃO REFERIMOS O MODO DE GRAVAR O 
CÓDIGO MÁQUINA. AQUI VAI: 


SAVE '“'COSMACODE”" CODE 30446, 2322 





Ito IF INKEYrg&="" THEN GO TO 154 
138 RUN 





CLUBE Zs0 
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Adapt.: ALEXANDRE JOÃO 
PORTO 


Este programa testa os seus conhecimentos na resolução da 
adição e multiplicação. 

A soma ou multiplicação aparece no lado esquerdo e ao lado 
direito aparece uma grelha de números. 

A ideia do jogo consiste em obrigar a calcular uma soma (por 
exemplo) e depois mover o tanque com as teclas 6 ou 7, até 
ficar na posição correcta (em frente ao número certo). Poderá 
entao disparar um tiro. Se a resposta estiver certa, o número 
é projectado da grelha e vai ocupar a sua posição na equa- 
ção. Se errar a resposta, será atingido por uma bomba. 
Pode alterar o número de tanques (3) desde que altere a 
variável. 


2 — Faz aparecer o título do programa no écran. 
3 — Estabelece um espaço em N$ e vai às subrotinas 
para definição de gráficos e instruções. 
6 - 30 — Estabelece valores iniciais para todas as variáveis, 
define o tipo de jogo e velocidade. 
35 - 60 — Define o sistema de pontuação . 
70 - 75 — Valores aleatórios das variáveis a e b. 
75 - 160 — Cria outros efeitos de som e no écran. 
170 — Vai à rotina que determina a posição do tanque e 
depois GOTO 520. 
300 — Determina a posição do tanque. 
500 — Apaga a posição do tanque. 
510 - 540 — Pesquisa o teclado e define as teclas: cima, baixo e 
fogo. 
545 - 550 — Rotina para produzir efeitos gráficos e de som ao 
disparar. 
660 — Altera INK. 
690 — Verifica as perdas e ajusta a pontuação. 
700 — Verifica os ganhos. 
810 — Acerta a pontuação. 
820 — GOTO 30 e inicia a questão seguinte. 
900 — Rotina do avião. 
950 - 990 — Rotina da bomba e som. 


77h 1000 — Fornece a reposta correcta. 


1010 — Verifica se a pontuação é alta e, se sim, dá entrada 
de um nome. 

1020 — Escreve o nome. 

1030 — Escreve a pontuação máxima. 


1040 — Verifica o n.º de tanques usados. Se não houver 


mais, inicia O jogo de novo. 
1050 — Coloca outra questão. 
2015 - 2020 — Estabelece variáveis para a rotina do movimento do 
número. 
2100 - 2200 — Movimento do número. 
3002 - 3130 — Define caracteres gráficos. 
4000 - 4060 — Instruções. 


VENDO 


IMPRESSORA ZX SINCLAIR, COM 4 ROLOS DE 
PAPEL NOVOS POR ESC. 8.5009$00 
Contactar: JOSE M. S. GORDA 


O G. D. 
5160 MONCORVO 





7,2: 





Amã 
max-pontoszy PONTOS al 
de 
Caracteres Graficos definidos 
pelo utilizador 
prenpçao: 50 podera escrever na 
inha respectiva,apos usar RUN e 
tendo O cuidado de premir a t 
ecla GRAPHICS ishift Did 
-i a 
- b 
cê sa 
* d 
=. = 
- F 
x 
»r 
definir avião Na linha 90D,. «aa 
teclas “de Graphics" 


se Finir bomba ...Uf GRAPHICS" 


definir tanque...“ac Graphics" 


à REM “mult/soma” 

= FLASH 1: PRINT AT 4,0; "MULT 
adaptado por RNLlexandre Joao": F 

LASH Q 

a 3 LET n$30 -: GO SUB 3000: CL 

5 : GO SUB 4900 








14 CLUBE Zs0 
5 PAUSE 100 820 FOR B=1 TO 7: BORDER B-1: N 
3 LET HISCORE=0: LET RnB: LET EXT EB 
T=0 810 LET SCORE=SCORE+10+ 1043) 
3 INVERSE 1: LET JaQ: PRINT A 315 PAUSE 25 
T 20,0; "USAR UMA TECLA PARA NOVO 320 GO 30 
JOGO": INVERSE DU: PAUSE O 300 PRINT AT D,I-1;''âma 
12 CLS : INPUT “ + OU + “;B$ 310 LET I=I+0 
11 INPUT “UELOCIDADE 1,2,3,4 320 PRINT AT B,I; 
"O: LET 020/72 325 IF I>=29 MEL LET I=29: GO 
14 IF 052 THEN GO TO 11 TO 950 
15 LET SCORE=0 340 RETUR 
309 CLS 350 FOR RAD TO 2 
3S PRINT AT 19,2; "hax-pontos=" 360 INK 2: PRINT AT K,30; 
| HISCORE 262 INK O 
40 LET x=30: LET i=zD: PRINT AT 365 IF K=y THEN FOR M=0 TO 7: 1 
19,18; (PONTOS ai; SCOR NK M: PRINT AT K,30; BEEP .05 
2S PRINT A 20,6; "de": PRINT A 22. NEXT M: INK O: LET J=u+i: 
T 21,4; Na 50 TO 1000 
59 PAPER 7: INK 1: BORDER 1 370 BEEP .05,K 
SS IF J=0 THEN PRINT AT 21,20; 350 PRINT RT K,3D; 04 é 
S8 IF J=1 THEN PRINT AT 21,20; 1000: PRINT AT 13,6; BOMBA FALHO 
" U ALVO": PRINT : BEÉP .2,-30: FL 
S7 IF J=R THEN PRINT AT 21,20; ASH 1: PRINT AT 15,8; “NUM.CERTO= 
T BB) BEEP 1,-38: BEÉEP .5,30: B 
O INK B: INUERSE 1: FOR F=2 T 2,0. FLASH O 


O 12: PRINT AT 
7 R$E 


. a 
- NEXT EF: INVER B: “INK i 

78 LET Az2+INT (RND&12) 

75 LET B=2+INT iRND+4W11) 

so FOR Sz0 TO 116 STEP &: PLOT 
-S,134: DRAW 0,12: BEEP .,.00Z,B: 


À 
os BEEP .2,0: BEEP .2,14: PAUS 
90 TE Ç88=14" THEN PRINT AT 4,2 
js IF B8=*, THEN PRINT AT 4,2 


169 NEXT Y 

170 GO SUB 300: GO TO 52 

300 INK 2: PRINT AT Y,X;"": INK 
à: RETURN 

Soo PRINT AT Y,X; ": RETURN 
S10 IF INKEvg="" TH N GU SUB 30 
2: GO SUB 900: GO SUB 2000 

s20 IF INREY Be Do THEN GU SUB 5 
0: LET Vey-1L: GO SUB 300: LET I 
=1+.5: GO SUB 900: GO SUB ado 

530 IF INKEY$="6" THEN GO SUB 5 
DO: LET V=vy+1l: GO SUB 300: LET I 
=1+.5: GO SUB 900: GU SUB 2000 
5542 IF INKEV$="Q" THEN GO TO 60 
545 IF yY=20 THEN LET Y=19 

SS0 IF y=0 THEN LET v=z1 

S70 GO SUB 300 

590 GO TO S1Q 

519 FOR 8=0 TO 11 
520 PAPER O: INK R: PRINT AT qy, 
é sois ds 

530 BEEP .05,-16 

840 INK O: PRINT AT y,28-s;"" 
545 PAPER 7 

550 NEXT s 

560 INK 1 

590 IF b<>y THEN LET score=scor 
=-S: BEEP .02,-16: PRINT AT 19,2 
E:Score;"": GO TO GRQ 

700 IF b=y THEN PRINT AT 16,10; 
Ok! em cheéio!”. LET v=-L: LÉT à 
=2: PAUSE a5 

705 IF y=4 THEN GO TO 770 

710 FOR F=1 TO 10: PRINT AT Y,14 
SsF;yg;'" 

715 PAUSE 10 

720 NEXT EF 

725 IF y=2 THEN LET Re=-2 

730 IF y=3 THEN LET R=-3 

740 FOR N=0 TO Y4R 

745 PRINT AT Y-N,6;Y 

750 IF y-Nséá THEN GO TO 770 

755 PAUSE 10 

780 PRINT AT Y-N,6; 

7ES NEXT n 

770 PRINT AT 4,5;Y 

775 PRUSE 40 


p 
1D0S PAUSE 40 
1919 IF J=3 AND SCORE >HISCORE TH 
EN INPUT “ESCREVA O SEU NOME: NE 
- LET HISCORE=SCORE 

er AT 20,6, "By": PRINT AR 


T 
1036 “BAINT AT 19,2; “HI-SCORE= 
HISCORE 

1940 IF J=3 THEN GO TO 9 

1959 GO TO 30 

2015 LET TaT+1: LET V=INT iRND49 
2020 LET H=17 

2108 INVERSE 1: PRINT AT T,H;“- 
cc =": BEEP .002,0: LET L=I 

NTO (RND&6) INK L: PRINT AT T,H+ 
2105 INVERSE ", 

2110 IF T=12 THEN LET Tal 

2200 RETURN 

3002 LET b=BIN 220000011. LET cx 

BIN 99111111: LET daGIN 11111111 
1457 e=BIN 11900000: LET F=90111 
3010 FOR n=1 TO 8: READ p& 

3020 FOR f=0 TO 7 

30320 READ a: POKE USR pé+r,a 
3040 NEXT 

3050 NEXT n 

3055 LET k=D: RETURN 

3460 DATA “abs, Csobsfsdados 
3070 DATA “b',e,e,e,e,d,d,d.d 
3050 DATA "co, BIN O,BIN O,F,d,d, 
",BIN B,BIN Q 

3890 DATA “d”,BIN O,BIN DIlIVDVRO 
'BIN 0911190019,BIN D1illlvdii,d.d, 

BIN 2990901111,BIN 20011100 

3100 DATA “e“,BIN D,BIN B,BIN O, 

BIN 11901119,d,4.BIN 11202000 ,.B1 
N 12009000 

31190 DATA “F",BIN B,e,6BIN Bi11llil 
00,d4,d,BIN 01111100,e,BIN O 

3120 DATA “a”, BIN D1019190,.BIN O 
1200100 ,BIN 10999191,8IN 09001911 
1,BIN 019112010,BIN 210911010,BIN 

21110101,6IN 111129191 

3130 DATA "h',BIN 19190100,BIN 1 

3100100 ,BIN 191029101,BIN 1111010 
1,BIN 11111911,BIN 199011010,BIN 

9101909120,BIN DiVIDIDI 

3140 RERO q$ 

3150 FOR jz0 TO 7 

3160 READ Fr | 

3170 POKE USR q$+4,1 

3190 NEXT j 

3219 DATA “s",BIN 00900000, BIN O 
10090000. BIN 91111110,BIN 0000100 
d,BIN 20200000 

1900 CLS : PRINT : PRINT “Tente 
Fazer o max. num.de pontos ESCRE 
VENDO O NUMERO CERTO 

aBLD PRINT : FRINT “SE ERRAR,PER 
DE 5 PONTOS” 


CLUBE Zso 
4020 PRINT : PRINT "SE ACERTAR U 
RI GANHAR PONTOS DE ACORDO COM A 
SUA RAPIDEZ" 
4080 BRINT : PRINT “TU TENS 3 TR 
4240 PRINT : PRINT “ESCREVENDO O 
NUM. ERRADO 


igda PRINT “DEIXANDO O E ta CHE 
GAR RO OUTROLADO DO ECRAN ,SERA 
ATINGIDO POR UMA BOMBA “ 


qe INK 2: a, aa 
PRINT : PRIN 6 PR 
Pd nai PRINT. " 0 DIS 


4260 RETURN 
3000 FOR à=97 TO 104 
Res | LPRINT CHRE (a+d?) 


avRo NEXT a 





Permite construir um sólido a 3 dimensoes e observar uma ro- 
taçao sobre o seu eixo. 


Para iniciar o desenho do sólido deve introduzir a altura e O 
comprimento (ou seja, as coordenadas) de cada vértice. Para 
terminar, use o valor 999 quando for pedido o comprimento. 


Para construir uma nova figura deve premir a tecla S máximo 
de 16 vértices. 





À 
"ARBAFUSO 
desenhado com o programa GRAFS3D 
q 1 REM 1728 NEU 72º? BD SUB VAL 

ço BORDER QB: PAPER D: INK 7: C 
E. 

lo FOR a=23750 TO 237712 

114 READ b: POKE àa,b 

lzô0 NEXT a 

150 DATA 33,0,64,17,0,230,1,90,8 
desde, 440,6 04 

sao DIM x (15,8): DIM 4.165,38): D 
IM Zz (156,8): LET sin=SIN i(PIcd): 
LET cos=C0s iPILv/4) 

Sslao INPUT “comprimento “;xiis,d 
E. dttura CidlL;dd: LET Zido 2) 8B 
sev PLOT xill,I)j+I2S,4UiIi,1I)+308 
ss) FOR c=2 TO 126 

Sid INPUT “comprimento C;xic,d) 
" JF x(ic,1)>5255 THEN GO TO 598 
542 INPUT ,'altura C;yic,d) LE 
T ZLC,iiaeuy 

ss2 DRAW x ic,l)-xic-L,1I),4tc,]2) 
SO PLOT x ic,1) +12, ÍC, 1) +IO 
sy NEXT c 

sa) CLS 

500 PURE 23762,33: POKE 23763,1 
f 

Stba FOR q=:0 TO 5 

SY3 POKE 23765,119+24 +49 

505 FOR b=z2 TO 8 

5Slo FOR a=1 TO c-l 

ey LET x ia,b)=xia,b-1l) +cos-zia 


«b-l)*$+sin: LET Zia,b)=Zzia,b-1)+c 
ato dad LET uyla,b) =y(la, 

o ! 

530 NEXT a 

Big NEXT b 

sa) CLS 

70 FOR b=1 TO? 

Zi) FOR àazi TO c-l 

rey PFLOT I1l25+xia,b),30+y tla,bl-. 
Sezia,b! 

73584 DRAU a ca a a 
Ztã,b)) 

vã) DRAW ixia+l,b+1)) -i(xta,b+2) 
Vs ly iasL,b+1)-.Sezia+L, b+1)) - IL 
a.b+l)-.Ssz ia,b+21) 

750 NEXT a 

"60 NEXT b 

sy FOR az1i TO c-ê 

310 Part 128+x iã,8) ,30+Uu (a ,81-. 
342 ia,8) 

Sszeuyd DRAW ixia,l)l)j-ixia,8)), tyia 
«DD -.Sezia, Eri tu (as 8) -.S+zia,8S) 
| 

339) DRAW ix +1,1))-(xX(3,1)), (9 
ia+1,1)-,.5%Z +1,1)i-(uia,li-,5% 
E tA ad!) 

sigo NEXT a 

550 RANDÔMIZE USR 23760 

ao FOR az1i TO c-l a 

dl) LET xn=x ia,1)) 4005 iPIL/24)-E 
ia, 1) *51N iPI/24) 

s20 LET zn=z ta,1i) +00S (PIv2d]) +x 
ia, L) +5IN (PI/24) 

230 LET x (a,ll=xn: LET zia,lizz 
" 

sád NEXT a 

350 NEXT q 

são BEER .5,30 
da POKE 23760,17: POKE 323763,3 
1219 FOR q=0 TO 5 
igza POKE 23765,116+24+9 
12392 RANDOMIZE USR 23769 
19535 IF INKEYg='s" THEN RUN 
L1Bs) NEX 


NEXT q 
1950 GO TO 1010 


SAIBA QUANDO TERMINA A SUA ASSINATURA 


QUANDO RECEBE A REVISTA DO CLUBE Z80, A 
ETIQUETA COM O SEU ENDEREÇO INCLUI UM NU- 
MERO ANTES DO NOME QUE SIGNIFICA O FIM DA 
SUA ASSINATURA. OS DOIS PRIMEIROS ALGARIS- 
MOS REFEREM-SE AO ANO; OS OUTROS DOIS RE- 
FEREM-SE AO MÊS. 

EX.: 8410 


Em Novembro de 1984 esta Assinatura Termina 


FACILITA-NOS O TRABALHO SE RENOVAR A SUA ASSI- 
NATURA ANTES DE A DEIXAR CADUCAR. AGRADECE- 
MOS A SUA COLABORAÇÃO. 




















CLUBE Zs0. 





Autor: CARLOS MORENO 
PORTO 


“O objectivo do jogo é destruir, com a nave que se move na 
parte inferior do visor, as naves que vão aparecendo na parte 
superior. Se alguma nave conseguir chegar à zona inferior do 
visor então a nossa nave é destruída. 

Depois de introduzida a listagem apresentada devemos exe- 
cutar o programa com RUM. Ser-no-á pedido o grau de difi- 
culdade e basta carregar numa das teclas de 1 a 5. Mal uma 
dessas teclas seja primida, poderemos observar a constru- 
ção de uma imagem com 3 planetas. Depois da imagem 
estar completa, poderemos ver no canto superior do visor a 
nossa pontuação e o número de naves que temos. 

Para movimentar e disparar o laser da nossa nava, utilizamos 
as seguintes teclas: 


Q — esquerda 
W — direita 
B — disparar laser” 


à FOR n a TO 7 

2 RERD 

3 POKE ÚSR “Renda 

& NEXT n 

3 DATA RIN GBoliçvos, BIN 182811 
“Ol. BIN. 1901111901,8IN G1111118,61I 
“ 991111209.5IN glagealo, BIN 198€ 
201,BIN 199090591 

& FOR n=3 TO Z. RES dd. FOKRE 
vor “Band: NEXT n 

? DATA BIN 1922200 1,BIN 18811 
S9L, BIN 1919901901, BIN 119208811,BI 
Yd LIBRBBII.BIN 181111901,5BIN 1981 
Atas BIN 1323080001 

GO 2UB 1980 

“ab BORDER YU: PAPER B. INK 7: CG 

159 FOR n=1 TO 38 add SS 


20 CIRCLE 120,86, 
“0 IF n>:14 THEN ÉIRCLE 200,48. 


a 
O IF n>17 THEN CIRCLE 56:158, 
2 IF INT (tRND+43)=2 THEN PLOT 


INT o (RND$+25€0), INT I(RNDrivo) 
ira NEXT n 


itg REM tiros e nave 
220 LET a=l16 


2012 LET p=ê 

222 LET s=a 

OS LET w=INT (RND+321 

eQã LET wb=2 

elo LET a=a+tINKEvE="w AND a<z 
3) - (INKEvY$=]"q" AND a>g) 

def PRINT AT R,Q;Cp=º;p:AT 2R,Iis 
s “tem “is; nar es". PRINT Rt 2lL, 
GS; 0 Ro“: PLOT INVERSE 12 ;asg+12, 
“5 


285 PRINT AT 2,8;: 
PeFE po “ 


30 LET Zetec gh) 
4 IF zZz=1 THEN :. RAW CQUES 14; E 
«21,22: PLOT INVUERSE 
DRAW QUER Ilrg.ISA 
+&5 = z= 1 Bro w=3 THEN PRINT 
QUER 1;8T wb,w+1;0B“: LET p=b+1 
Ow: LEF 0=0 +. gi: GÔ J0 zas 
to REM ufos 
2oQ0 LET wil=w am 
LET ij =w- INT L(f 
PI): TF wuÍ.2s FHEN LET w=3+CINT 
LAND 4 SI 
204 LET wub=wub+ 
220 PRINT QUER. a; BT wub-o,wmi;-" E 
;3AT wb,wm; B 
aê Eta ub5aR THEN LET s=s-i: IF 
==0 THEN GO TO Gaua 
341 IF wb>2a THEN PRINT QUER dl; 
E “Bv +a CRS 
Ria IF wb>:2%2 THEN GÔ To 283 
as REM pontuacçcao e destruicçcao 
3220 GO TO 2825 


Sa CLs : PRINT AT Q,1S; “tem OQ. 
naves". PRINT FLASH 1;AT 15,45;' 
MORREU” 
S1% FOR n=1 TO SR: BEEFEP .ma. INT 
(RND+6G): NEXT n 
s52 GOD SUB I1Bem 
?B9 GO TO 18 
ijoBê BORDER &: PAPER B: INK 7: E 
1210 PRINT AT 10,G;“arau de difi 
culdade (ti a S) 
1220 LET 9g=0: LET g=CODE INKEYS: 
IF avéiô ÔR q>S84 THEN GÊ To 1926 
1B2S IF 9=58 THEN LET c=1 e 
1QR6 IF 9=S2 THEN LET G=.7 ma 
1027 IF 9=Si THEN LET G=.5 
12P8 IF 9q=520 THEN LET G-=.& 
lRPa IF g=4a THEN LET qG=.4 
iRaR RETÚERN 





Autor: ANTÓNIO NUNES 
FUNCHAL 


“Porque julgo que entre os sócios do Clube Z80 haverá al u- 
mas que, tal como eu, também se interessam pelo hardware, 
envio juntamente um programa de grande utilidade para eles. 
O programa foi traduzido da revista inglesa “Elektor” e adap- 
tado por mim ao Spectrum. 

Acontece frequentemente aos entusiastas das montagens 
electrónicas necessitarem de resistências de valores não 
normalizados. A solução habitual consiste em ligar várias re- 
sistências de valores standard em série ou em paralelo. O 
cálculo para chegar ao valor pretendido usando combinação 
de resistências standard pode ser bastante demorado, 
mesmo usando uma calculadora de bolso. 


Com o programa PARSER o cálculo transforma-se numa 
operação rotineira e pouco demorada, desde que se dispo- 
nha de um microcomputador programável em BASIC. Este 
programa, aqui apresentado na sua versão para o Spectrum, 
determina todas as combinações possíveis de resistências 
em série e em paralelo para um dado valor e com uma deter- 
minada tolerância. Teste-o com alguns exemplos para além 
do apresentado (30.000 ohms — 1% e verá a sua utilidade”. 


TT 


CLUBE 


Z 80 


— = <= PE & = — = e = — me 
lts osS;ds ds: E, "ed 
do — 2d = a — (e (e = * ,— e, a Se — 
Et : 8 É SS : É». + ] 7 -— O — : : s - —" —" 
fam? fam” E E E: à a do + Es: ES mto a 3 Cm E eai Sato 
— sm, a so o o —. — 
a PR =. FOR É a, 
E mg A 4 53 é E Si É = 
ás E qu: am = = É ——- — e, =. ;— 
Will Piso o dSl=+ E RE q —==olis: 
“o e cmg pa 4 4 
Ss + a E qm 4 405 . Sm É 308 É 
Fe À z.. TE tt SOR o als s $ 
imo fd 3 E Fo o — St O Sê: mt fergie E fee Ta q. 
tam? Tam e ie E e ado fm Zumo = — cê a RE Go” é A 
ls e la - 
Sim ttiti Tam: É 
- o std TD - 
im fd T - - Tm E E — à ta o fadado. Td Es 
Cum Em? ai é - E “a? et TA SS alo tas SRS TS a! GS Ga? É PS SS 
— — -— j— — . E : Sa E: aq; fem 
es qm É fas É E a a is Em ES A E ata 
q o RO : té = A =, + sd Las Cs tum? É mt 
* fo 
re o Toi o pe É É o 
ie Emo rt E ai E Do : Es 4 = - 
Cu am? + ES ai é E = = A E E 
= «=& .:— o (im se E E E Es - 
S drê Lider: IisioisSiRiosso: é SM EX 
- — — : 5 — . — o — + — o — — “e “| : = 
= ' ET - 2 + RISE ESSE És : ee Ea : 
DO LET L&f-tt/100) $i LET li=f+ 
f 44801 &F 
Co O GE A e DE 
e — — a 1-7 - : 
[0 = iii DEE = — Fi Ff a 
Jam É CSS quê E É os tm '- pe é pa 
e — e. — 
se “E S4 E$L A fel 
= É Erouamms 3 é 
3 ET. — — e sc = — 2. — = : : 
: foi tos - - É foi 5 = e Pi Toi é = É Te So e o de. db ES 
aim To mê * F% dos + ; ai 3 É 5 im 3 == E = A = E 
—— +. — , | A 
E rtãas 13 E) age 
É é ques fm (q «mo = e sm — 
3 “Cj Jet - | fm? e Eres Ea 
o Tm : — 5 O um O i 
SO — qu, ss s — ari DE cum qu . = 
à sm 801 o É é qm? s3t. me Tê E: Es; : — E Fes it STS e 
ado To am? : sa st = sê tm? ai» E o : Sed o RR d% E 
=. Eq ES ia Ss Ses : = em as RR 
o did DPimi exe SP isii ii PiqiS is 
= = mg. sê 2 se 2 
3 SI É dm e e E E: o 
tm ams Em? + Ati a e aê, E Ê 
3 ds = mm, =: É E + — — = qu, ug - 
+= misma :ii]Taã 4 dE as FT É Fi ='= É 
TE fd To À! ter) CE Ee cê EM fm E E 
: 245: e to t+ A iwsslio: 
Ea E tu adm Mt tao? Cm 
= : -— - uma É 
Mi 3 74] Ro So E er 2 Es) 5 — É Es o 3 2 e EO = 
ai Camo? Tm? im. É po mi + 335 - ss o = - 33 E 
me. fm? gsas 
ae viE E E DD E RO 
= — a — — am, É e 
. : pm fot Pe tt - t do Es do: 
dao tam Gm? Cam amoé ê mto dt ES ES 
: -— :— - é - 
Tosa ii ER — . A E: ti = 7 
e É E im É o ulas Emo im É = 
JS TRI a ter :é e . 
= fa Et Tas ep sa SE Rai Es. e SE - Fo 
E sys fo des ds e 4 es 4 am É = po dd de 
SAS: so EE SÊ Em 35Ê - e É SE me s 
— — es sup 3 : : — : Y 
E q 3 3%3 É — “mi 3: ques = 2 E 
* Teams ss ie e = Eee 
a. q (um quem, — — (ra, je f = = — sms, = 
E ES — | jm E E é : : o ias — 
io mo Gm 3 Sds = 3 E ei “é Em $ im 
—-— qu mm cum Su = 
= CRT pe (o a = as E sm SER como qu, = .—- sem dis 
ms Eos ES - 3 3 dao Es H E $ - 3) E ie : :- - 
de os Mm 3 S3t Bi — qi fi cão CP 3 fama O eds a $ E 
us A e o 4 A À Pa À É pac pi — — . — —. — 
E RR o ; qn é Sims - ç 3 q Ses EE: Sao 
Ses dr Raras ÇA E md at E, 3 é Tam 53 e É am? 
3 E Ta 
[BSR 
Rd 
st ue (um qu, Ea “o ps se, & = cegas quo qu, : 
- 5 ÉS q É Sir HE E .$ : É ; — 3 fe dis — "5 
E ão Em? É mst e e Cm = - à im 3 estas 
— — o qem, - emo em - pa (pes q, 2 sáçi “ã 
o aa E — à 2 fm E == RS É SÊ = ER E Es t Ee 
— mo Em? 3 SEE é — di : E ei CAs aim Eita : 
= % ess o im — "33 e ia rc 
23d dotado Susto tits a. E 4ptes tes 
rio ss : Essa du SR em aim ES Cmt Tm 
EE pe ! Es ” — o fest e As segs 
E Camo Em — imo po pesa RA tos a ID io 
Ji] po e : E qu Le = 11: A — — : 
à SI ques dos a — ts : à = o 2) RS: À = O Ps ENS Es 
— Te ES edm É q ca ts E, a Cam : 3 Sim 3'S Ca? Com? É tu” ão To? 
-— = 
= 251 
Cm? Tm? 
t;* 3 ja Pot + E ms % EssÃ cego j sara de Sue Se É ss 
HE RE E = a . R ? tits ts —— B ESP ES nes Rg E ARA 
= E do dm dl É o ado Gm dm o po o uia SE GS Se um Sm? Mm" fm” 
. HR E +) ThiITOoO TR dias 
Ras E, É o O ot à as LAS 
Mo LET risPimi E ii Ss E — É 
o Ts im Er ln à mo 5 sa: | js — im 
q 3 q és: 
-— i Ro 
2.4 LE 
- - = —— . — suo emp - - a mm 
Tião TE Tia =D +: =% FE a RERERcE 
io E Cs Tem e É E esto im at E i- : o —— ai emo ES a? 
a - DT o EE=-"“U 
E é ie e é É JE É o 
iu ca ” “é tigsátáitats Tião Pei : e E am 25 
alho Ss “io Ta ado é do do ES ES ES UI Es Sê : 3 o à e] 
RAE ET O EE-UM 
ado Em E dm? imo im É o sro 
E mn pr : TT - - g % as ais po É TO "1. 
* Him fã j EST r E fm! EIS o = : q Jo EI q = 
em E do SD a i e Di istsccig ts ae qtas j 3 35 
o ES Cams Ca ie im É E send : LES VE e ao é e alo Et Ts 3: É São 
E E = e Dt et RIR E to | TE — das 83 
sê ta ts 1 P e Ss £ tlwirs tados : E, 
:s Ti im É : - So de S ais ES ES ES + o ER dm Ee 
1262 IF urigageas THEN LET [FB=r5 
ato Em tam? Gu” ai é bo) ao mo a E E E 3: é Sim 3% fm mm 3 E — Tm 
IARRO LFETO o ig=UmMS 
a ão Tt Tm Tm à im é . q : 
Psasza DETHT Cicbecadocooigov="os 
cão dm? É quê SO Et als o: É caio EE = «S5 Fa '& vedê — = 
% E “sz 
TT ET =P der E = E ss .s 3 Ca 2.3 e + 
3 Pos gm dt OS a HE: E =: 27 ti dt) 8 fi E i 
ado Em? tm Gm? ET dm E e -. — Ss So ado Su” É Têm S% 5 
PDT od: =—% 
ie mo É = Mad 
% MR IITa Pol im “8 Fio i E em E e, 
3 dé FU A 3 EE: E Em = PS 
o To mo fam? É Têm do 83: imo Em = ado Tm 
1180 HEKT 7 
alo ado dm Eus $ Sim do ão 
IYdto TE at- Foge h! fais TE) & Pta 
o io cio Tm” nm É O 757 ]Ti-: — FO Cu -- 0 
2. — — ms sus 
3 E ams tis gm jm É Sos 3 
ão ai Tm fm? OT st l 
TT. RIC ie - ; o =» so o 
3: à Gi É Jog dmes É o ms - SAS e a E: 
ao aim ano Em? E EIS Ls GS dt: Ta mt 3 3 
e a de qi 
33 


ATENÇÃO 


-O CLUBE Z80 ESTÁ A ACEITAR IDEIAS E SUGES- 
TÕES NO SENTIDO DE PRESTAR CADA VEZ MAIS 
SERVIÇOS AOS SÓCIOS. ESCREVA-NOS SEMPRE A 
SUGERIR UM TIPO DE SERVIÇO QUE POSSAMOS 
PRESTAR... Aqui vai um exemplo: 

SACOS COM CAPAS E ETIQUETAS PARA CASSETTES 


50 CAPAS 
100 ETIQUETAS 


k ESC.: 500800 


— Se existirem muitos pedidos, o preço pode baixar — 
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eos em — — . ' — é. 3/qumo o 5 em; qu q em, .- 
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? sz a, es 
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PSYTRON 


Com a devida vénia transcrevemos do Jornal “Mundo 
Informático”, n.º 5 a seguinte “Micronotícia”: 
“Durante 7 meses, dois engenheiros trabalharam neste 
programa em «FULL TIME». Bastou este pequenas 
pormenor para nos despertar imediatamente a curio- 
sidade. 

Classificado com um dos mais ambiciosos e intrigantes 
programas já vistos em microcomputadores, devemos 
dizer que a expectativa foi amplamente satisfeita ao 
observar as potencialidades deste programa. 
Passemos a uma breve descrição: 

PSYTRON é um supercomputador usado para contro- 
lar e conservar uma poderosa estação espacial. Além 
destas duas tarefas, tem ainda que se preocupar com o 
ataque das forças inimigas. 

O jogo torna-se de tal maneira complexo e difícil que 
os autores do programa tiveram o cuidado de nos da- 
rem primeiro, cinco níveis de treino, antes de começar 
a verdadeira batalha. 

No primeiro nível, você tem de destruir os invasores 
que se infiltram na base, utilizando um pequeno painel 
no écram que lhe dá uma vista a três dimensões dos 
corredores da base. 

Depois de efectuar esta missão, você terá de abater as 
naves inimigas, que bombardeiam a estação. 

No nível três, o factor estratégico entre em jogo; terá 
não só de destruir os inimigos, como também saber 
manter a base em ordem, dando indicações correctas, 
no sentido de ter a base sempre em perfeito estado. 
Para passar aos níveis seguintes, você terá de conse- 
guir uma série de 5 “scores” que, adicionados, lhe da- 
rão um “score” que ultrapasse o limite mínimo imposto 
pelos realizadores do programa. 

Falta fazer uma referência à espectacularidade dos 
gráficos apresentados. Você estará na parte central da 
estação e tem a possibilidade de ter 10 vistas distintas 
de toda a base, qual delas a mais espectacular. O gra- 
fismo do programa torna-se assim um dos seus gran- 
des atractivos. 

Sinceramente, verá que vale a pena adquirir este 
programa.” 








Autor: FERNANDO PRECES 






SACAVEM 
E EM vEêsBo 240 PRINT ,,"SIM, N/L" 
G 288 INPUT Ig 
so FOR Nz1 Le 260 CLS 
s INT rr" 215 N/4,2;'" HH 270 CLEAR 
i Soo PRINT Rr 2,2; MEDIA DE TEM 
8SPN+420,1 PERATURAS” id 
Ea nc E isto 310 PRINT ,,,," ESTE PASSATEMPO 
O o o da 320 PRINT. « CGALCULAR MENTALMEN 
120 PRINT AT 16,1;B;TAB 11;C - 
130 PRINT AT 17,1; "LTRS“;TAE 11 3350 PRINT DIO DA TEMPERTURA 
“LTRS” DOS RENT 1668 
150 LET D=INT (1204RND) 340 PRINT ,,"“CONTIDOS NOS TANOQOU 
160 . = q e 
OB BRINFOAS 14 298 ras às CRÉEPRINT (40 .SE NAD CONSEGUIR 
E; 1 (2 ** x 
180 PRINT AT B,0;" ; TE 343 PRINT ,, “LOS MENTALMENTE, E 
180 PRINT R 2,8; "TEMP.MEDIA Nes Eodioniidas 
195 PRINT F 344 PRINT ,,"DS DADOS. INDIQUE 
220 IF ABS (F-((B4D+C+E) 2(B+C)) A OPERACAÓ E” 
/<.001 THEN GO TO 240 345 PRINT .,<EU> PAREI OS CALC 4 
210 PRINT ,, "NAO" ULDS. 
220 PRINT ,,"VAL.MED."; (B4D+CrE 380 PAUSE 70W 
DAR)» os NS 360 CLS 
230 G0 TO 2s0 370 RETURN 
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Autor: FERNANDO PRECES 






SACAVEM 
REM "F1J6" 113 PRINT 
io Corvo dês, dê cRa”  esuir contos 
15 LET U=X/X 200 PRINT .,"CAMPO MINADO! 
20 LET VaX+PI 210 PRINT ,,,. "UDCE ESTA CORREN 
30 LET Zey/Y 0 DO NUM CAMPÓ COM” 
Rua DSR BE Tas 0 ERRO PRINT pa cMINAS. LEVA UM DET 
a DE o o A AND X<3 230 PRINT ,,"FUGIR-LHES. SO QUE 
SE CE GNDS'S THEN DO TO dd 240 PRINT ,, "DESEJO-LHE BOR SOR 
- 78 PRINT AT RND+15+5,RND430; "E 250 PRINT 111 "B PONTUAÇÃO VEM q 
80 PRINT AT RND415+5,RND438; " 
n dida a 260 PRINT ,,,."COM Z,VOCE FOGE 
90 PRINT AT Y,X; PARA A ESQUERDA” E 
110 IP PEEK (PÉEK 16398+2564PEE a70 PRINT ,,"COM M, FOGE PARA A 
K 16399) <>8 THEN GO TO 40 DIREITA 
11 CLS 280 PAUSE 700 
12 105 É NO «mê Na 298 CL 
299 RETURN 


Autor: FERNANDO PRECES 


SACAVEM 

2>REM "rous" 70 LET B=INT (S4RND)+1 

4 G6 SUB SÔD 80 LET C=INT iSsRND) +41 

& RANDOMIZE 92 PRINT AT 4,10-24B; E 

8 LET E=ô | 100 PRINT AT 4 ,10+24C: "E" 

18 PRINT “NIVEL 1-3' 110 LET D=INT (LONA SAND) 

220 INPUT A 120 PRINT 3;D;" KGS" 

30 FOR Nsi TO 10 130 PRINT AT 19,0; "KGSEPARAREOU 

420 CLS ILIBRAR 9“ 

45 PRINT “P “;N 140 INPUT E 

[= 174] PRINT AT SS, —— emana 145 PRINT E 

180 IF ABS (B+4D-C+rE)>.B1i THEN G 

qa s4a32101234 o TO 190 
s" '168 PRINT ,,"CERTO-CARREGUE N/L 
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170 LET F=F+1 810 PRINT ,,,," NESTE ENGRACADO 
182 GO TO 200 JOGO, VOCÊ TÊM" 

190 PRINT ,,"ERRADO-CARREGUE N/ 520 PRINT ,,'"DE INTRODUZIR OU 
a RE ALOR QUE PRÉVE" 

235 PR INT AT 21,90; "QUER CONTINU SEO PRINT " COMO VOCE PODERA 
AR? (DIGA Ss OU NÍ" SER MUITO BÓM" 

250 PRINT AT 12,0;" OK... ATE A ERC GAR” do SBRBLDES RR DAP 
VISTA. S80 PRINT ,,"EXPERIMENTE E DIVI 
270 STOP RTA-SE." 

420 CLS ; 

410 GO TO 6 so90 PAUSE 900 

590 PRINT AT 1,3;"JOGO DA BALAN 600 CLS 
CA" 6180 RETURN 





Autor: 


[ 


" 
Propor -p-pp 


FERNANDO PRECES 
SACAVEM 


VOJCARWUNPESSPINONOSS A 
* "o 


UUUUTUTUTU 
APSJdAPR--T 


OCO TTOTIOTCONPELEOQDE 
“49 1- 


FERNANDO PRECES 
SACAVEM 


2 REM Eagdo 
GO suB 300 
RANDOM IZE 


LET D=0Q 
PRINT “INTRODUZABARBASE ' 
INPUT B 

LET B=INT B 

roR Ms1 TO 10 


CL 
PRINT "“P';M,D;," CERTAS" 
(LOG 4RND) 
PRINT ,,"DECIMAL az “;C 
T Ás 


FOR N=LEN A$ TO 1 STEP -2 
LET V=VAL (AGINI) 


LET Cel 
IF ABS (A-C)>.1 THEN GO TO 


LET D=D+1 
PRINT ,,"ESTANCERTO PRESS N 


TO 200 
NT ,, "ERRADO" 
NT 


JONDEPUNVPEDOOCVORANAE NH 
SUS OS SUVSSSOSVUISSAGSSSSSGA 

V 
pi! 
tt 
Z 
«À 

te 

S- 
D 
e 


10.08 08 


GO 
PRI 
PRI 


80 NEXT 

110 PRINT AT 12,2;R 

120 PRINT AT 14,7;B 

130 PRINT AT 18,9:C 

180 INPUT D 

160 IF ABS (D-AXB44C)>.01 THEN G 
O TO 100 

170 PRINT AT 2,8;D;" SIM, N/L" 
185 GO TO 20 

190 PRINT AT 2,0;D;“ NRO, N/L" 
200 INPUT D 

219 G0 TO 3 

590 CLS 

S10 PRINT AT 8,8; "CALCULE O VOL 
UME DUM RECTANGÚULO" 

sao PRINT ,,,,"TEM & ESCALDES D 
E DIFICULDADE. 

530 PRINT ,,,, "PRIMA N/L PARA C 
OMECAR. “ 

540 INPUT LS 

SSQ RETURN 





STEP -12 
“*BYN); 
(C/BYN) 4+BYN 


UZr UR 
de 


mm 


w WOW VAIGALGDND Prep 
UM mom» “Shvrô ZUVOVDO 


SZS 9SX0D6 060560 > oo 


T AT 1,6; "BASES NUMERIC 
032º AQUI TEM UM T 
| DIFICIL PASSATEMPO 
«1 LAPOS TER ESCOLHI 
àº PRETENDE, TERA QUE 
dé NUMERO CORRESPONDE 


360 PRINT ,,'MA BASE, POR RESPO 
STA RO NUMERO! 

370 PRINT ,,"DECIMAL APRESENTAD 
PRUSE BBW 


L. 
ETURN 


D 


FA 


m 
VAT VOZH 


Q 


Z 
— 
m 
D 
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RESPOSTA À PERGUNTA DE MÁRIO MONTEIRO 


(V. “CLUBE Z80”, n.º 23, Agosto, pág. 200) 


Manuel Figueiredo (Penalva do Castelo) responde: 


“A causa da incoerência deve-se à impossibilidade de 
passar alguns números décimais (com vírgulas) para binário 
com toda a precisão. Como se sabe, o Spectrum, assim 
como outros computadores, usa o sistema binário de nume- 
ração. Assim, todos os números que nós introduzimos em 
décimal, terão de ser previamente passados a binário antes 
de entrarem na memória ou no processador. Para números 
inteiros, o problema resolve-se bem, já que todos os inteiros 
em décimal tem um equivalente em binário (no entanto para 
números superiores a 4294967295 o Spectrum deixa de os 
guardar com total precisão, devido ao facto de o computador 
guardar os números em bytes, dos quais o primeiro é o ex- 
poente e os 4 seguintes a base, considerando o 1.º bit da 
esquerda para a direita como bit do sinal). 

O problema maior surge com números não inteiros. Por 
exemplo, no programa indicado é subtraído “0,1” a “N”" e é 
impossível representar o número “uma décima” em binário 
com total precisão. Uma décima em binário será aproximada- 
mente isto: 0,00011(0011) mas com a décima (0011) infinita. 
Ou seja, se acrescentarmos sempre ao número (0011), 
aproximámo-nos de uma décima, mas nunca lá chegamos. 
Em númeração binária, o valor relativo dos algarísmos à 
direita da vírgula é o seguinte: 


1/8=0,125 
1,64=0,015625 
1/2=0,5 
1/16=0,0625 
1/4=0,25 


Õ, | O CR O O 1 


1/32=0,03125 
1/256 
1/128 


Existe até uma regra prática para converter fracções deci- 
mais em binárias: multiplica-se o número por 2 e retira-se o 


algarismo à esquerda da vírgula (1 ou 0) considerando-o 
como primeiro bit mais significativo à direita da vírgula, em 
binário. Continua-se a multiplicar a parte restante do número 
por 2, até dar como resultado 1 sem parte decimal. 


Exemplo para 0,1 


sh 
X e 
1.º bit + signif. O — 0,2 
x 2 
2.º bit + signif. O — 0,4 
x 2 


3.º bit + signif. O — 0,8 
Xe 
4.º bit + signif. 1 — 1,6 
0,6 peso Considera-se só a parte 
Ke decimal para continuam 
5.º bit + signif. 1 — 1,2 


0,1, decimal = 0,00011.... (em binário) 

Devido a esta dificuldade, o Spectrum guarda o número 
“0,1” com um valor ligeiramente inferior, mas muito aproxi- 
mado “0,1”. Contudo, ao escrever estes números no 
“écran”, e como só pode usar até 14 caracteres, ele indica o 
número que achar mais aproximado. Na verdade ao subtrair 
(0,1 de 4) 20 vezes, o resultado deverá ser 2, mas como o 
computador guarda “0,1” com defeito, ao executar as 
mesmas operações o resultado será ligeiramente superior a 
2, mas tão aproximado que ao escrever o resultado 
arredonda-o para 2. Se observarmos a memória verifica-se 
que o número “N” está guardado com os bytes “'130,0,0,08" 
e “0,0,2,0,0”, o que mostra serem diferentes. Estes números 
até parecem muito diferentes, mas isso deve-se so facto de o 
Spectrum guardar os números inteiros de O a 65535 de um 
modo diferente de todos os outros números. “” 
Assim ao perguntarmos o valor lógico de N + N é maior que « 
— muito pouco de facto, mas é maior!” 


SCROLL, BREAK, CONTINUE E VERIFY 


(resposta às perguntas feitas por Rui Carvalho, 
publicadas no CLUBE Z80 n.º 22, pág. 19) 


Manuel Figueiredo (Penalva do Castelo) responde: | 


“Se ao “SCROLL?” respondemos “N” ou “BREAK”, o 
computador guarda o número de linha e de instrução em que 
se fez a paragem, nas variáveis do sistema OLDPPC e OSP- 
PC (end. 23662 e 23664) para poder depois continuar com a 
mesma instrução. No entanto, se essa linha era um comando 
directo e era a primeira instrução do comando directo, que já 
não é “LIST” (ou outra instrução) mas sim “CONTINUE” 
salta para o próprio “CONTINUE” e só o “BREAK” pode 
interromper. 

Quanto à questão de “LIST” no mesmo caso dar “O or?” 
isso não acontece no meu computador. O mesmo se passa 
com a instrução “VERIFY” — o meu computador aceita e 


executa correctamente essa instrução dentro de um 
programa. 


PROJECTOS DE HARDWARE 


“EM RELAÇÃO A PROJECTOS DE HARDWARE, 
TÊM ALGUM CONHECIMENTO DE UNIDADES DE 
REFRIGERAÇÃO PARA O SPECTRUM?” 


(MÁRIO REBELO/COIMBRA) 


SE ALGUEM TIVER ALGUMA RESPOSTA A ESTA 
QUESTAO, ESCREVAM AO CLUBE Z80. 


MARIO REBELO AGRADECE 
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e VIGAS CONTÍNUAS — Sistema de cálculo que admite movimentos em qualquer apoio e admitte rotações nos 
apoios encastrados. Está preparado para seleccionar 8 tipos de solicitação diferentes. 
METODO DE GADO .sipnazisinR IDIOTA GUTO RS LET Rm Esc.: 1 000800 


e OLYMPICS — Este jogo contém várias modalidades desportivas desde o Salto em Altura até ao Lançamento do 
Peso. 


e CODE NAME MAT — Um dos jogos tipo “guerra das estrelas' mais famoso neste momento. Podes optar por seres 
o piloto ou comandante da nave espacial. Terás de dirigir a nave através do universo, evitando meteoritos, naves e 
planetas. 


e BEAKY AND EGG SNATCHERS — A finalidade do jogo é impedir que os ovos sejam roubados por monstros. 
Deves destruir os monstros não deixando cair os ovos. 


é“ ESQUIMÓ EDDIE — O cenário é o POLO e as superfícies geladas; os personagens são três divertidos pinguins 
que destroem os inimigos, lançando cubos de gelo. 


e GALACTIC TROOPER — Jogo do espaço, em que tens de destruir os inimigos para poderes alcançar o solo. 


e SKUIL — Percorres um labirinto, apanhando diferentes objectos que permitem enfrentar os obstáculos que irão 
aparecer ao longo do percurso. 


e ORC ATTACK — Tens de defender o castelo de sucessivos ataques de soldados e de misteriosos invasores com 
poderes mágicos. 


e AD ASTRA — Jogo do tipo espacial, tens de pilotar uma nave evitando colisões com planetas e defendendo-te de 
outras naves. 


e PI-EYED — Num passeio pela cidade, decides entrar por exemplo num PUB. Serás obrigado a beber todas as 
cervejas que estiverem no balcão. 


e RIVER RESCUE — Deslocas-te ao longo de um rio, pilotando um barco a motor e o teu objectivo é o de salvar 
ss diversos elementos de uma expedição perdida. 


e LAST SUNSET — Tens de percorrer um labirinto, evitando os disparos dos opositores, até encontrares uma chave 
que serve apenas numa das fechaduras. 


e NEW POKER — Jogo idêntico ao que existe nas máquinas de jogo e que dá prémios em dinheiro”. 


e OMETRON — Mais uma aventura no espaço, onde a tua missão é defender a plataforma espacial destruindo os 
invasores. 


e TRIBLE TRUBLE — Logo que seja lançado da nave o pequeno extraterrestre, deves acompanhá-lo não deixando 
que se afaste demais. 


e FALL OF ROME — Apresenta o mapa do Mediterrâneo e uma 'janela' onde pode fazer passar legiões, estabele- 
cer defesas e manipular tribos. O jogo tem 12 passagens e consiste em determinar o seu valor de estratega. 
EXCELENTE. 


e HULK (The Incredible Hulk) — Possui imensa força e essa força depende do grau de 'zangado' que o super-herói 
atingiu. Baseado numa série de aventuras dos desenhos animados, estilo Super-Homem. BOM. 


O preço habitual de todos os jogos para os sócios do clube é de 400$00 com 20 % de desconto 
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MERCADO Z80 


O MERCADO Z80 É UMA SECÇÃO DO CLUBE Z80 QUE 
EMPRESA AOS SEUS SÓCIOS PROGRAMAS E LIVROS 
(SPECTRUM) PARA CONSULTA E MELHOR CONHECI- 
MENTO/APROVEITAMENO DE MICROCOMPUTADORES. 


— PROGRAMAS: Todos os jogos e utilitários que exis- 
tem no CLUBE Z80, excepto programas de cópia e 
programas com direitos de autor (Ex.: “Cálculo de 
Estruturas”). 


— LIVROS: Cerca de 40 títulos diferentes. 


COMO TORNAR-SE SÓCIO DO MERCADO Z80? 


Para poder ter em sua posse 5 cassetes ou livros durante um 
mês, basta enviar-nos um depósito de Esc. 2000800 (garantia 
de que os materiais nos serão devolvidos em estado de con- 
servação e funcionamento idêntico àquele em que foram 
enviados). 

Ao mesmo tempo, deverá remeter-nos a quantia de Esc. 
1000800 que será a base da sua “Conta-Corrente”. Essa 
quantia servirá para pagar as suas despesas: 


— Taxa de utilização dos produtos: 250800 (referente a 5 
unidades, entre livros e programas). 


— Instruções dos programas (no caso de o sócio não as 
devolver, debitar-lhe-emos 5800 por folha). 


— Embalagem Postal: 20800 a 30800 (no caso de o pedi- 
do ser feito via CTT. 


— Portes dos CTT's: 40800 a 80800 (no caso de o pedido 
ser feito via CTT. 


IMPORTANTE! 


— O depósito de 2000800 pertence integralmente ao sócio 
desde que os materiais por ele utilizados nos sejam devol- 
vidos nas mesmas condições em que saíram do CLUBE 
Z80. Assim, quando o sócio desistir do MERCADO Z80, 
essa quantia ser-lhe-á entregue. 

Em caso de extravio, danos ou avarias dos materiais, O 
sócio pagará o valor comercial dos respectivos produtos (a 
descontar no depósito de 2000800). 


— No caso de os produtos seguirem via CTT, o sócio não 
pagará para levantar a encomenda. As despesas serão 
pagas por nós, no momento da expedição, e debitadas ao 
sócio (a descontar no depósito de 1000800). 


— Quando as suas despesas estiverem a atingir os 1000800 
avisá-lo-emos, e o sócio deverá renovar essa quantia de 
modo a cobrir despesas seguintes. 


— A taxa de utilização dos produtos é fixa — 250800. Ela 
refere-se ao conjunto de 5 unidades. (Pagará sempre 
250400 mesmo que peça só uma unidade). 


QUE PRODUTO E QUE QUANTIDADES? 


O sócio nunca pode pedir mais do que 5 unidades de cada vez 
(entre livros e cassetes). Quanto a livros não poderemos em- 
presar mais do que um. Assim, o sócio poderá pedir: 


— 5 cassettes 
ou 
— 4 cassettes + 1 livro 


QUAL O TEMPO DE UTILIZAÇÃO? 


O sócio poderá ficar com os produtos durante 1 MÊS, no 
máximo. Findo esse período, deverá devolvê-los ao CLUBE 
Z80. 

O MERCADO Z80 só atenderá dois pedidos por mês, para 
cada sócio. 


COMO FAZER O PEDIDO? 


Numa carta, escreva pelo menos 10 títulos (por ordem de 
prioridade). Se os 5 primeiros não estiverem disponíveis, en- 
viaremos os outros evitando grandes esperas de produtos que 
estejam em circulação. 

Ao devolver os produtos, inclua uma carta com o pedido 
seguinte. 


IMPORTANTE! O SÓCIO SÓ PODERÁ EFECTUAR UM 
NOVO PEDIDO JUNTAMENTE COM A DEVOLUÇÃO DO 
MATERIAL CORRESPONDENTE AO PEDIDO ANTERIOR 
(ou depois, se preferir). 


Se estiver interessado no MERCADO Z80, faça já o seu 1.º 
pedido, enviando 3000$00 e o cupão abaixo devidamente 
preenchido. 


INSCRIÇÃO NO MERCADO Z80 


NOME 
ENDEREÇO 
CÓDIGO POSTAL 
TELEFONE 


ENVIO 3 000800 (2 000800 como garantia de que devolverei os produtos em boas condições + 1 000$00 para a minha 


«Conta Corrente» em: 


Lo] 


Cheque n.º 


Banco 


(6, 7: q A Assinatura do Sócio 


É SÓCIO DO CLUBE Z807? 





DL 


Vale Postal 





Lo 


Dinheiro 


[] SIM 





